<%
'******************************************************************************************
'#          Openasp CMS software opensource                                               #
'******************************************************************************************
'#      Copyright (C) Luca Becchetti, Broken Ice Interactive                              #
'#                                                                                        #
'# Questo software è gratuito, è possibile ridistribuire e modificare il prodotto         #
'# rispettando i termini della GNU General Public License pubblicata dalla Free           #
'# Software Foundation, si fa riferimento alla versione attuale e a tutte le versioni.    #
'# future                                                                                 #
'#                                                                                        #
'# Il software viene distribuito con lo scopo di essere utile e di aiutare nella          #
'# realizzazione di un sito web, non ci assiumiamo nessuna responsabilità per             #
'# eventuali malfunzionamenti o problemi provenienti dal programma.                       #
'#                                                                                        #
'# E' assolutamente vietato eliminare ogni riferimento di copyright sia all'interno del   #
'# del codice sorgente sia quelli visivi nel progetto.                                    #
'#                                                                                        #
'# Una copia della licenza GNU GPL è rilasciata nel pacchetto di istallazione del         #
'# software.                                                                              #
'#                                                                                        #
'# Per supporto visita il nostro sito ufficiale                                           #
'# http://www.openasp.it                                                                  #
'#                                                                                        #
'#                                                                                        #
'******************************************************************************************
'
'--------------------------------------------------------------------------------------------

i = split(request.ServerVariables("HTTP_URL"), "/")
if strComp("delcomment.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if

Function isBlogMod(id, categ)
	if id <> "" and categ <> "" then
		if isNumeric(user) and isNumeric(cat) then
			set testRS = addConn.Execute("SELECT * FROM tb_blog_moderazione WHERE utente = " & id & " AND idcategoria = " & categ)
			if not testRS.EOF then
				isBlogMod = true
			else
				isBlogMod = false
			end if
		else
			isBlogMod = false
		end if
	else
		isBlogMod = false
	end if
End Function




	if request.Form("save") = 1 then
		pubblico = 0
	else
		pubblico = 1
	end if
	
	If isADM(session("uID"), "blog") OR session("livelloUser") = 2 OR isBlogMod(session("uID"), request.Form("cat")) then
		addConn.Execute("INSERT INTO tb_blog_posts(titolo,contenuto,riassunto,data,pubblico,utente,categoria,blog,tags) VALUES('"&testSQLinj(request.Form("titolo"))&"','"&testSQLinj(request.Form("testo"))&"','"&testSQLinj(request.Form("riassunto"))&"','"&DateToSTR(STR_TIME)&"','"&pubblico&"','"&session("uID")&"','"&request.Form("cat")&"','"&request.Form("blog")&"','"&testSQLinj(request.Form("tags"))&"')")
	end if
	
	set top = addConn.Execute("SELECT max(id_post) AS massimo FROM tb_blog_posts")
		max = top("massimo")
	set top = nothing
	
	if request.Form("save") = 1 then
		response.Redirect("admin.asp?modulo=blog&op=modifica_post&id=" & max)
	else
		response.Redirect("admin.asp?modulo=blog")
	end if
%>